home *** CD-ROM | disk | FTP | other *** search
/ NetNews Offline 2 / NetNews Offline Volume 2.iso / news / de / comm / isdn / 7607 < prev    next >
Text File  |  1996-08-06  |  2KB  |  68 lines
  1. Path: news.dfn.de!si-nic!usenet
  2. From: Roland Reichardt <gk820@appl2.hrz.uni-siegen.de>
  3. Newsgroups: de.comm.isdn
  4. Subject: EURACOM Pa▀word geknackt!
  5. Date: 28 Mar 1996 20:15:44 GMT
  6. Organization: Computer Center, University of Siegen, Germany
  7. Message-ID: <4jes1g$4ck@si-nic.hrz.uni-siegen.de>
  8. NNTP-Posting-Host: slip3.hrz.uni-siegen.de
  9.  
  10. Ich geb' ja zu, es ist nicht so schwer gewesen und das Pa▀word
  11. des Konfigurationsprogrammes KONFIG.EXE kann man auch ⁿbergehen,
  12. indem man einfach das Originalprogramm von Diskette nimmt und das
  13. mit dem Pa▀word damit ⁿberschreibt, aber trotzdem...
  14.  
  15. So geht's
  16.  
  17. { Passwortentschlⁿsselung des      }
  18. { Eurakom Konfigurationsprogrammes }
  19.  
  20. { Roland Reichardt                 }
  21. { Obere Rolandstr. 4               }
  22. { 57076 Siegen                     }
  23. { Tel.: (0271) 48939-41            }
  24. { Fax.: (0271) 48939-43            }
  25.  
  26. program Euracom;
  27.  
  28. uses objects;
  29.  
  30. var
  31.   rein : TBufStream;
  32.   Dateiname : String;
  33.   i : integer;
  34.   Zeichen : Integer;
  35.  
  36. begin
  37.   Dateiname := '';
  38.   Writeln('Bitte geben Sie den Namen der Eurakom Datei ein.');
  39.   Write('<EINGABE> = KONFIG.EXE :');
  40.   Readln(Dateiname);
  41.   IF Dateiname = '' THEN Dateiname := 'KONFIG.EXE';
  42.   Rein.Init (Dateiname, stOpen, 1024);
  43.   If Rein.Status <> stOK Then
  44.     begin
  45.       Writeln('Quelldatei nicht gefunden: ',Dateiname);
  46.       Exit;
  47.     end;
  48.   Writeln('Passwort des Euracom Konfigurationsprogrammes: ');
  49.  
  50.                         { An die Stelle im Programm springen }
  51.                         { wo das Passwort eingetragen wird.  }
  52.                         { Hexadezimal: 3825                  }
  53.                         { Dezimal    : 14373                 }
  54.  
  55.   Rein.Seek(14373);
  56.                         { Die Zehn Zeichen des Passwortes    }
  57.   For i := 0 TO 9 DO
  58.   begin
  59.     Rein.Read  (Zeichen, SizeOf (Zeichen));
  60.  
  61.                         { Ende des Passwortes, wenn Zeichen=0}
  62.  
  63.     IF Zeichen <> 0 THEN Write(CHR(Zeichen+(i*221)));
  64.   end;
  65.   Writeln;
  66.   Rein.Done;
  67. end.
  68.